﻿<Serializable()> _
Public Class EproformaDscto

#Region "           Atributos                       "
    Private _idEmpresa As Int32
    Private _descEmpresa As String
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idProforma As Int32
    Private _idProformaDscto As Int32
    Private _idDscto As Int32
    Private _descDscto As String
    Private _dsctoMin As Decimal
    Private _dsctoMax As Decimal
    Private _monto As Decimal
    Private _dscto As Decimal
    Private _dsctoMonto As Decimal
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idEmpresa() As Int32
        Get
            Return _idEmpresa
        End Get
        Set(ByVal value As Int32)
            _idEmpresa = value
        End Set
    End Property
    Public Property descEmpresa() As String
        Get
            Return _descEmpresa
        End Get
        Set(ByVal value As String)
            _descEmpresa = value
        End Set
    End Property
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property
    Public Property idProformaDscto() As Int32
        Get
            Return _idProformaDscto
        End Get
        Set(ByVal value As Int32)
            _idProformaDscto = value
        End Set
    End Property
    Public Property idDscto() As Int32
        Get
            Return _idDscto
        End Get
        Set(ByVal value As Int32)
            _idDscto = value
        End Set
    End Property
    Public Property descDscto() As String
        Get
            Return _descDscto
        End Get
        Set(ByVal value As String)
            _descDscto = value
        End Set
    End Property
    Public Property dsctoMin() As Decimal
        Get
            Return _dsctoMin
        End Get
        Set(ByVal value As Decimal)
            _dsctoMin = value
        End Set
    End Property
    Public Property dsctoMax() As Decimal
        Get
            Return _dsctoMax
        End Get
        Set(ByVal value As Decimal)
            _dsctoMax = value
        End Set
    End Property
    Public Property monto() As Decimal
        Get
            Return _monto
        End Get
        Set(ByVal value As Decimal)
            _monto = value
        End Set
    End Property
    Public Property dscto() As Decimal
        Get
            Return _dscto
        End Get
        Set(ByVal value As Decimal)
            _dscto = value
        End Set
    End Property
    Public Property dsctoMonto() As Decimal
        Get
            Return _dsctoMonto
        End Get
        Set(ByVal value As Decimal)
            _dsctoMonto = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDscto As Int32, _
                   ByVal idDscto As Int32, ByVal dsctoMin As Decimal, ByVal dsctoMax As Decimal, ByVal monto As Decimal, _
                   ByVal dscto As Decimal, ByVal dsctoMonto As Decimal)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.idProformaDscto = idProformaDscto
        Me.idDscto = idDscto
        Me.dsctoMin = dsctoMin
        Me.dsctoMax = dsctoMax
        Me.monto = monto
        Me.dscto = dscto
        Me.dsctoMonto = dsctoMonto
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDscto As Int32, _
                   ByVal idDscto As Int32, ByVal dsctoMin As Decimal, ByVal dsctoMax As Decimal, ByVal monto As Decimal, _
                   ByVal dscto As Decimal, ByVal dsctoMonto As Decimal, ByVal estado As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.idProformaDscto = idProformaDscto
        Me.idDscto = idDscto
        Me.dsctoMin = dsctoMin
        Me.dsctoMax = dsctoMax
        Me.monto = monto
        Me.dscto = dscto
        Me.dsctoMonto = dsctoMonto
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idProformaDscto As Int32, _
                   ByVal idDscto As Int32, ByVal descDscto As String, ByVal dsctoMin As Decimal, ByVal dsctoMax As Decimal, _
                   ByVal monto As Decimal, ByVal dscto As Decimal, ByVal dsctoMonto As Decimal, ByVal estado As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.idProformaDscto = idProformaDscto
        Me.idDscto = idDscto
        Me.descDscto = descDscto
        Me.dsctoMin = dsctoMin
        Me.dsctoMax = dsctoMax
        Me.monto = monto
        Me.dscto = dscto
        Me.dsctoMonto = dsctoMonto
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
#End Region

End Class
